Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbtable.dxr/00044_PP Format Table .ls

Text File | 2000-01-18 | 8.5 KB | 350 lines

on TellText xMember, Col, row
  xText = getCell(member(member(xMember, "tabled.cst")), point(Col, row))
  Jat(xText)
end

on setText xMember, Col, row, xText
  xText = putCell(member(xMember, "tabled.cst"), point(Col, row), xText)
end

on SomeLinesDoubleHeight xMember
  xMember = member(xMember, "tabled.cst")
  MaxRow = member(xMember).rowCount
  if MaxRow < 2 then
    alert("there is only one row!!")
    exit
  end if
  repeat with rc in [8, 13, 18, 19, 24, 27, 31, 37, 38, 40, 41, 42, 43, 46, 49, 78, 189]
    setRowHeight(xMember, rc, 31)
  end repeat
  updateStage()
  beep(2)
end

on settoRect xRect
  xMember = the member of sprite 1
  setColumnWidth(member(xMember), 1, xRect.right - xRect.left)
  setRowHeight(member(xMember), 1, xRect.bottom - xRect.top)
  updateStage()
end

on setrectwidth xRect
  xMember = the member of sprite 1
  setColumnWidth(member(xMember), 1, xRect.right - xRect.left)
  updateStage()
end

on set92 xRect
  xList = [78, 166, 166, 134]
  xMember = 92
  MaxCol = member(xMember).columnCount
  repeat with rc = 1 to MaxCol
    setColumnWidth(member(xMember), rc, 436 - 257)
  end repeat
  updateStage()
end

on set93 xRect
  xMember = 93
  setColumnWidth(member(xMember), 1, xRect.right - xRect.left)
  updateStage()
end

on set94 xRect
  xList = [60, 68, 68, 54, 64, 64]
  xMember = 94
  MaxCol = member(xMember).columnCount
  repeat with rc = 1 to MaxCol
    width = getAt(xList, rc)
    setColumnWidth(member(xMember), rc, width)
    setHAlign(member(xMember), rc, "center")
  end repeat
  updateStage()
end

on center
  xMember = the member of sprite 1
  MaxCol = member(xMember).rowCount
  repeat with rc = 1 to MaxCol
  end repeat
  updateStage()
end

on setbody
  xMember = 94
  MaxCol = member(xMember).columnCount
  repeat with rc = 1 to MaxCol
    setColumnWidth(member(xMember), rc, 90)
  end repeat
  updateStage()
end

on LeftJustifyPadSpaces Col
  xMember = member(8, "tabled.cst")
  SpacePad = "   "
  MaxRow = member(xMember).rowCount
  if MaxRow < 2 then
    alert("there is only one row!!")
    exit
  end if
  repeat with rc = 1 to MaxRow
    cellRef = point(Col, rc)
    xText = getCell(member(xMember), cellRef)
    xText = RemoveBorderSpaces(xText)
    if xText contains RETURN then
      Pos = offset(RETURN, xText)
      Line1 = char 1 to Pos - 1 of xText
      Line2 = char Pos + 1 to length(xText) of xText
      Line2 = RemoveBorderSpaces(Line2)
      Line2 = SpacePad & Line2
      xText = Line1 & RETURN & Line2
    end if
    putCell(member(xMember), cellRef, SpacePad & xText)
    setHAlign(xMember, cellRef, "left")
  end repeat
  updateStage()
  beep(2)
end

on DecimalAlign Col
  xMember = the member of sprite 1
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    cellRef = point(Col, rc)
    xText = getCell(member(xMember), cellRef)
    TestInteger = MakeNumericOnly(xText)
    xText = RemoveString(xText, numToChar(202))
    if integerp(integer(TestInteger)) then
      if TestInteger < 0 then
        alert("table may be corrupt")
        exit repeat
        exit
      end if
      xText = AppendNbs(xText, 6)
      putCell(member(xMember), cellRef, xText)
      setHAlign(xMember, cellRef, "right")
      next repeat
    end if
    putCell(member(xMember), cellRef, xText)
    setHAlign(xMember, cellRef, "center")
  end repeat
  updateStage()
  beep(2)
end

on LeftJustifyRow xCol, xRow
  xMember = the member of sprite 1
  cellRef = point(xCol, xRow)
  xText = getCell(member(xMember), cellRef)
  xText = RemoveBorderSpaces(xText)
  putCell(member(xMember), cellRef, "          " & xText)
  setHAlign(xMember, cellRef, "left")
  updateStage()
  beep(2)
end

on TellMouseCell
  Jat("Member", the mouseCast, "Cell Num", sprite(the rollOver).mouseCell)
end

on GetOneRow Table, xRow
  TableMember = member(Table, "tabled.cst")
  put getRowHeight(TableMember, xRow)
end

on SetOneRow Table, xRow, xHeight
  TableMember = member(Table, "tabled.cst")
  setRowHeight(TableMember, xRow, xHeight)
end

on getc memberNum
  xList = []
  xMember = the member of sprite 1
  MaxCol = member(xMember).columnCount
  repeat with xCol = 1 to MaxCol
    append(xList, getColumnWidth(xMember, xCol))
  end repeat
  put xList
end

on getr memberNum
  xMember = member(memberNum, "tabled.cst")
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    put getRowHeight(xMember, rc)
  end repeat
end

on SetR Table, height
  xMember = member(Table, "tabled.cst")
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    setRowHeight(member(xMember), rc, height)
    Jat(getRowHeight(member(xMember), rc))
  end repeat
  beep()
  updateStage()
end

on setc Table, column, size
  TableMember = member(Table, "tabled.cst")
  setColumnWidth(TableMember, column, size)
  updateStage()
end

on SetAllCols Table, size
  xMember = member(Table, "tabled.cst")
  MaxCol = member(xMember).columnCount
  repeat with rc = 1 to MaxCol
    setColumnWidth(xMember, rc, size)
  end repeat
  updateStage()
end

on columnCount Table, columnCount
  TableMember = member(Table, "tabled.cst")
  member(TableMember).columnCount = columnCount
  updateStage()
end

on rightJus
  xMember = member(8, "tabled.cst")
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    setHAlign(xMember, point(1, rc), "right")
  end repeat
end

on LeftJustify memberNum
  TableMember = member(memberNum, "tabled.cst")
  member(TableMember).defaultHAlign = "left"
end

on ChangeWidthALittle Table, column, WidthChange
  xMember = the member of sprite 1
  setColumnWidth(xMember, column, getColumnWidth(xMember, column) + WidthChange)
  updateStage()
end

on SetBold
  xLib = "immigrat.cst"
  repeat with rc = 2 to 5
    member(rc, xLib).defaultTextStyle = "Bold"
  end repeat
  updateStage()
end

on setFont
  member(6, "tabled.cst").defaultMacTextFont = "helvetica"
  updateStage()
end

on DataRHeight
  xMember = 13
  MaxChars = 20
  repeat with cc = 9 to 9
    repeat with rc = 1 to member(xMember).rowCount
      WordText = getCell(member(xMember), point(cc, rc))
      CurrentMax = length(WordText)
      if CurrentMax > MaxChars then
        h = getRowHeight(member(xMember), rc)
        setRowHeight(member(xMember), rc, h * 2)
      end if
    end repeat
  end repeat
end

on tellloc startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  end repeat
end

on tellrect startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  end repeat
end

on PPTellrect start, end
  go(10)
  updateStage()
  repeat with rc = start to end
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put the rect of sprite rc
  end repeat
end

on MoveColsToLeft xMember
  xMember = member(xMember, "tabled.cst")
  repeat with rc = 1 to member(xMember).columnCount - 1
    NextColumnWidth = getColumnWidth(xMember, rc + 1)
    setColumnWidth(member(xMember), rc, NextColumnWidth)
  end repeat
  repeat with xCol = 1 to member(xMember).columnCount - 1
    GetList = []
    PutList = []
    repeat with xRow = 1 to member(xMember).rowCount
      append(PutList, point(xCol, xRow))
      append(GetList, point(xCol + 1, xRow))
    end repeat
    DataL = getCell(member(xMember), GetList)
    putCell(member(xMember), PutList, DataL)
  end repeat
  updateStage()
end

on PPSetSpacing start, end
  repeat with rc = start to end
    xMember = member(rc, "tabled.cst")
    member(xMember).hCellSpacing = -1
    member(xMember).vCellSpacing = -1
  end repeat
  updateStage()
end

on MoveRight Table
  xMember = member(Table, "tabled.cst")
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    xText = "   " & getCell(member(xMember), point(1, rc))
    putCell(member(xMember), point(1, rc), xText)
  end repeat
  beep()
end

on RemoveSpacesinNumbers Col
  xMember = the member of sprite 1
  MaxRow = member(xMember).rowCount
  repeat with rc = 1 to MaxRow
    cellRef = point(Col, rc)
    xText = getCell(member(xMember), cellRef)
    TestInteger = MakeNumericOnly(xText)
    if integerp(integer(TestInteger)) then
      xText = FindandReplace(xText, " ", EMPTY)
      putCell(member(xMember), cellRef, xText)
      setHAlign(xMember, cellRef, "right")
      next repeat
    end if
  end repeat
  updateStage()
  beep(2)
end